home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 33 / 033.d81 / color select (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  5.0 KB  |  155 lines
  1. 1 ifx=0thenx=1:load"routines*",8,1
  2. 700 poke1020,2:poke1021,17:poke1022,1:poke1023,38
  3. 750 gosub 800 : goto835
  4. 760 :
  5. 800 open15,8,15,"i0":close15
  6. 820 open2,8,2,"$":forx=0to156:get#2,a$:next
  7. 830 get#2,a$:si=val(a$):close2:return
  8. 832 :
  9. 835 poke53280,6:poke53281,6
  10. 840 print"[147]        [204][207][193][196][211][212][193][210] [195]olor [211]election"
  11. 850 print"[153]    [193]fter having made your selection,"
  12. 855 print"you will be given a chance to save the"
  13. 860 print"changes, do them over, or quit with no"
  14. 865 print"changes."
  15. 870 print"    [201]n order to put the changes in"
  16. 875 print"effect, you must press [195] [153]at the main"
  17. 880 print"menu."
  18. 885 print"[208]ress [211][208][193][195][197] [153]to change colors, [209] [153]to quit."
  19. 890 geta$:ifa$=""then890
  20. 891 ifa$=" "then900
  21. 892 ifa$="q"ora$="[209]"thenprint"[147]";:goto12050
  22. 893 goto890
  23. 900 gosub6000:print"[147][144]":poke53281,c%(1):poke53280,c%(0)
  24. 1000 poke646,c%(4)
  25. 1010 printwt$;:fori=2to17:print"[221]"spc(38)"[221]";:next:printwb$;:poke646,c%(3)
  26. 1050 fori=217to242:pokei,peek(i)or128:next:poke646,c%(2):sys51203:goto2500
  27. 1055 poke2023,125:poke56295,c%(2):           return
  28. 1060 :
  29. 1100 poke783,0:poke781,y%:poke782,x%:sys65520:return
  30. 1200 :
  31. 1300 :
  32. 2500 poke646,c%(2):print"       [204][207][193][196][211][212][193][210] [195]olor [211]election        ":r%=.
  33. 2502 poke53280,c%(0):poke53281,c%(1)
  34. 2505 poke646,c%(2):sys51200:print"[198]rom here, you can select the colors
  35. 2510 [153]"that you find most legible for read-
  36. 2515 print"ing text.  [212]hese colors are only ac-
  37. 2520 [153]"tive when you are actually reading an
  38. 2525 print"article.  [217]ou may change the colors of
  39. 2530 [153]"any of the following:
  40. 2535 print"      [212]he [194]order: ";:poke646,c%(.):print"  [146]";:poke646,0:print"_"
  41. 2540 poke646,c%(2):print"  [212]he [194]ackground:"
  42. 2560 poke646,c%(2):print" [212]he [212]ext [201]tself:   [146]"
  43. 2562 print""wt$;
  44. 2565 print"[221] [213]se [195][210][211][210] keys/[202]oystick to move the   [221]";
  45. 2570 print"[221] arrows, and [211]pacebar/[194]utton to exit. [221]";
  46. 2575 fori=1to2:print"[221]                                      [221]";:next
  47. 2580 printleft$(wb$,39);:fori=217to242:pokei,peek(i)or128:next:gosub1055
  48. 2585 x%=3:y%=22:gosub1100:print"";:fori=.to15:poke646,i:print"  ";:next:print
  49. 2590 x%=4+c%(r%)*2:y%=23:gosub1100:poke646,c%(3):print"^";
  50. 2600 getk$:j%=notpeek(j)and31:ifk$=""andj%=.then2600
  51. 2601 pokeb,0:ifk$="[145]"orj%=1then2650
  52. 2602 ifk$=""orj%=2then2670
  53. 2603 ifk$="[157]"orj%=4then2610
  54. 2604 ifk$=""orj%=8then2630
  55. 2605 ifj%=16ork$=" "then10000
  56. 2606 goto2600
  57. 2610 x%=4+c%(r%)*2:y%=23:gosub1100:print" "
  58. 2612 c%(r%)=c%(r%)-1:ifc%(r%)<.thenc%(r%)=15
  59. 2615 ifr%>1thenifc%(r%)=c%(1)then2612
  60. 2617 ifr%=1thenifc%(1)=c%(2)then2612
  61. 2618 x%=4+c%(r%)*2:y%=23:gosub1100:print"^"
  62. 2620 onr%+1gosub2810,2820,2860
  63. 2622 ifr%<>1thenx%=19:y%=10+r%:gosub1100:poke646,c%(r%):print"  ":poke646,c%(2)
  64. 2625 goto2600
  65. 2630 x%=4+c%(r%)*2:y%=23:gosub1100::print" "
  66. 2632 c%(r%)=c%(r%)+1:ifc%(r%)>15thenc%(r%)=.
  67. 2635 ifr%>1thenifc%(r%)=c%(1)then2632
  68. 2637 ifr%=1thenifc%(1)=c%(2)then2632
  69. 2640 goto2618
  70. 2650 x%=21:y%=10+r%:gosub1100:print" ":x%=4+c%(r%)*2:y%=23:gosub1100:print" "
  71. 2652 r%=r%-1:ifr%<.thenr%=2
  72. 2655 x%=21:y%=10+r%:gosub1100:poke646,c%(2):print"_":x%=4+c%(r%)*2:y%=23:gosub1100
  73. 2656 poke646,c%(3):print"^":goto2600
  74. 2670 x%=21:y%=10+r%:gosub1100:print" ":x%=4+c%(r%)*2:y%=23:gosub1100:print" "
  75. 2672 r%=r%+1:ifr%>2thenr%=.
  76. 2675 goto2655
  77. 2700 ifpeek(788)=49thenpokes+24,15:sys49158:poke56325,49
  78. 2702 return
  79. 2705 ifpeek(788)=49then2715
  80. 2710 sys49155:pokes+4,0:pokes+11,0:pokes+18,0:pokes+5,8:pokes+6,0:pokes+24,15
  81. 2715 return
  82. 2800 x%=15:y%=22:gosub1100:poke646,c%(3):printmu$:poke646,c%(5):goto2000
  83. 2810 pokev+32,c%(.):return
  84. 2820 pokev+33,c%(1):return
  85. 2830 poke1020,.:poke1021,.:poke1022,.:poke1023,39:poke646,c%(2):sys51203
  86. 2831 poke1020,2:poke1021,17:poke1022,1:poke1023,38:poke646,c%(5):return
  87. 2840 poke1020,19:poke1021,21:poke1022,.:poke1023,39:poke646,c%(3):sys51203
  88. 2841 poke1020,24:poke1021,24:sys51203:poke1020,2:poke1021,17:poke1022,1
  89. 2842 poke1023,38:poke56176,c%(3):poke56215,c%(3):poke56216,c%(3):poke56255,c%(3)
  90. 2843 poke646,c%(5):return
  91. 2850 poke646,c%(4):poke1020,1:poke1021,1:poke1022,.:poke1023,39:sys51203
  92. 2851 poke1020,18:poke1021,18:sys51203:cm=55296:tn=39:ft=40:f=c%(4):fori=2to17
  93. 2852 pokecm+i*ft,f:pokecm+i*ft+tn,f:next:poke1020,2:poke1021,17:poke1022,1
  94. 2853 poke1023,38:poke646,c%(5):return
  95. 2860 poke646,c%(2):sys51203:fori=.to2:x%=19:y%=i+10:gosub1100:poke646,c%(i)
  96. 2865 ifi<>1thenprint"";
  97. 2870 print"  ":next:poke646,c%(2):return
  98. 2900 :
  99. 3000 :
  100. 5907 poke1020,2:poke1021,18:poke1022,1:poke1023,38:sys51200:print"[129]";:sys51203
  101. 5910 pokes+4,.:pokes+11,.:pokes+18,.
  102. 5999 :
  103. 6000 v=53248:r=v+17:s=v+1024:j=56320
  104. 6037 dimc%(8):open15,8,15:open8,8,8,"setup"
  105. 6038 input#8,c%(0),c%(1),c%(2),c%(3),c%(4),c%(5),c%(6)
  106. 6039 close8:close15
  107. 6040 wt$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  108. 6042 wb$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  109. 6060 return
  110. 10000 :
  111. 10050 poke646,c%(2)
  112. 10100 sys51200:print"[193]re these selections what you want?"
  113. 10110 print"[[217]/[206]] or [209] to [209]uit"
  114. 10200 poke198,0:wait198,1:geta$
  115. 10210 ifa$<>"y"anda$<>"n"anda$<>"q"           then10200
  116. 10220 ifa$="q"then12050
  117. 10300 ifa$="n"thensys51200:goto2500
  118. 10350 goto12000
  119. 10360 :
  120. 10400 sys51200:print"[208]lease make sure side"ag"of your"
  121. 10410 print"[204][207][193][196][211][212][193][210] disk is in the drive."
  122. 10420 print"[208]ress a key when you are ready."
  123. 10422 print"([208]ress [209] to [209]uit)"
  124. 10430 poke198,0:wait198,1:geta$:              ifa$="q"then10000
  125. 10435 :
  126. 10450 gosub 800
  127. 10451 ifsi=agthen10500
  128. 10452 sys51200:print"[211]ide"ag"not found...":fordl=1to2000:next
  129. 10454 goto10400
  130. 10460 :
  131. 10500 open15,8,15,"i0"
  132. 10530 cr$=chr$(13)
  133. 10540 open3,8,4,"setup"
  134. 10600 print#15,"p"chr$(0)"";
  135. 10610 print#3,c%(0)cr$c%(1)cr$c%(2)cr$c%(3)cr$c%(4)cr$c%(5)cr$c%(6)cr$
  136. 10620 close3:close15
  137. 10630 sys51200:print"[195]olor file is now on the disk."
  138. 10632 fordl=1to2000:next
  139. 10635 return
  140. 10640 load"custom ls boot",8
  141. 12000 :
  142. 12010 ns=2: rem  number of sides                         to cutomize
  143. 12020 forag=1tons:fl=0:gosub10400
  144. 12022 rem   iffl=1then12020
  145. 12030 next ag
  146. 12040 :
  147. 12050 sys51200:print""
  148. 12055 print"[208]lace [204][207][193][196][211][212][193][210] [211]ide [207]ne in your drive"
  149. 12056 print"and press any key to return to menu.":poke198,.
  150. 12057 geta$:ifa$=""then12057
  151. 12060 open15,8,15,"r0:custom ls boot=custom ls boot":input#15,er:close15
  152. 12061 ifer<>63then12050
  153. 12070 print"[210]eturning to [195]ustomization [205]enu"
  154. 12080 print"[147]":poke53281,0:poke0,47:load"custom ls boot",8
  155.